home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-04
/
vclang11.zip
/
FACT.CLN
< prev
next >
Wrap
Text File
|
1990-08-17
|
223b
|
13 lines
program TESTFUNCTIONS;
var N;
function FACTORIAL (M);
begin
if M = 1 then FACTORIAL := 1;
if M > 1 then FACTORIAL := M * FACTORIAL(M-1)
end;
begin
read(N);
write(FACTORIAL(N))
end.